home *** CD-ROM | disk | FTP | other *** search
/ Amiga Tools 5 / Amiga Tools 5.iso / spiele / workbench spiele / krsnake / install krsnake < prev    next >
Text File  |  1996-02-22  |  6KB  |  212 lines
  1. (message "\n\n\nKRSNAke v1.17\n\n© 1995, 1996 by Psilocybe Software\n\n"
  2.          "This program is released under the GNU General Public License. "
  3.          "See the documentation for details.")
  4.  
  5. (welcome "This program is released under the GNU General Public License. "
  6.          "See the documentation for details.\n")
  7.  
  8. (set @default-dest (tackon
  9.                         (askdir
  10.                             (prompt "Select a location for the KRSNAke directory")
  11.                             (help @askdir-help)
  12.                             (default "Work:")
  13.                         ) "KRSNAke")
  14. )
  15.  
  16. (set copy-docs (askbool (prompt "\n\n\n\n\nDo you want to install the documentation?")
  17.                         (help @askbool-help))
  18. )
  19.  
  20. (set languages (askoptions
  21.                     (prompt "Which language catalogs do you want to install?")
  22.                     (help @askoptions-help)
  23.                     (choices "kEwL"
  24.                              "Norsk"
  25.                              "Politically Correct")
  26.                     (default 0)
  27.                )
  28. )
  29.  
  30. (set opus 0)
  31. (if (exists "DOpus5:")
  32.     (set opus (askbool
  33.         (prompt "\n\n\n\nYou have DOpus 5 installed.\n\nDo you want to install the DOpus 5 button images?")
  34.         (help @askbool-help)
  35.     ))
  36. )
  37. (if opus
  38.     (set opus-dir (askdir
  39.         (prompt "Which directory do you want to copy the images to?")
  40.         (help @askdir-help)
  41.         (default "DOpus5:images")
  42.     ))
  43. )
  44.  
  45. (makedir @default-dest (infos))
  46.  
  47. (working "\n\nInstalling KRSNAke...")
  48.  
  49. (copyfiles (source "KRSNAke")
  50.            (dest @default-dest)
  51.            (infos)
  52.            (prompt "Copying KRSNAke executable...")
  53.            (help @copyfiles-help)
  54. )
  55. (copyfiles (source "KRSNAkePrefs")
  56.            (dest @default-dest)
  57.            (infos)
  58.            (prompt "Copying KRSNAke Prefs Editor...")
  59.            (help @copyfiles-help)
  60. )
  61.  
  62. (copylib (source "Libs/krsnake.library")
  63.          (dest "LIBS:")
  64.          (prompt "Copying libraries...")
  65.          (help @copylib-help)
  66. )
  67. (copylib (source "Libs/gtlayout.library")
  68.          (dest "LIBS:")
  69.          (prompt "Copying libraries...")
  70.          (help @copylib-help)
  71. )
  72. (copylib (source "Libs/player61.library")
  73.          (dest "LIBS:")
  74.          (prompt "Copying libraries...")
  75.          (help @copylib-help)
  76. )
  77. (copylib (source "Libs/protracker.library")
  78.          (dest "LIBS:")
  79.          (prompt "Copying libraries...")
  80.          (help @copylib-help)
  81. )
  82.  
  83. (makedir (tackon @default-dest "Clients"))
  84.  
  85. (copyfiles (source "Clients")
  86.            (dest (tackon @default-dest "Clients"))
  87.            (infos)
  88.            (all)
  89.            (confirm "average")
  90.            (prompt "Copying KRSNAke clients...")
  91.            (help (cat "  Action Replay\n\nThis client records your games and "
  92.                       "offers you the possibility of replaying them at any speed.\n\n"
  93.                       "  Hall Of Fame\n\nThis client provides you with a high score "
  94.                       "table.\n\n" @copyfiles-help))
  95. )
  96.  
  97. (copyfiles (source "Rexx")
  98.            (dest (tackon @default-dest "Rexx"))
  99.            (infos)
  100.            (all)
  101.            (confirm "average")
  102.            (prompt "Copying ARexx scripts...")
  103.            (help @copyfiles-help)
  104. )
  105.  
  106. (if (exists "Graphics")
  107.     (copyfiles (source "Graphics")
  108.            (dest (tackon @default-dest "Graphics"))
  109.            (infos)
  110.            (all)
  111.            (confirm "average")
  112.            (prompt "Copying graphics...")
  113.            (help @copyfiles-help)
  114.     )
  115. )
  116.  
  117. (if (exists "Sound")
  118.     (copyfiles (source "Sound")
  119.            (dest (tackon @default-dest "Sound"))
  120.            (infos)
  121.            (all)
  122.            (confirm "average")
  123.            (prompt "Copying sound samples...")
  124.            (help @copyfiles-help)
  125.     )
  126. )
  127.  
  128. (if (in languages 0) (
  129.     (if (not (exists "LOCALE:Languages/kewl.language"))
  130.         (copyfiles (source "Languages/kewl.language")
  131.                    (dest "LOCALE:Languages")
  132.                    (prompt "Copying KeW£ language file...")
  133.                    (help @copyfiles-help)
  134.         )
  135.     )
  136.     (copyfiles (source "Catalogs/kewl")
  137.                (dest "LOCALE:Catalogs/kewl")
  138.                (all)
  139.                (prompt "Copying fØcKiN KeW£ catalog...")
  140.                (help @copyfiles-help)
  141.     )
  142. ))
  143.  
  144. (if (in languages 1)
  145.     (copyfiles (source "Catalogs/norsk")
  146.                (dest "LOCALE:Catalogs/norsk")
  147.                (all)
  148.                (prompt "Copying norwegian catalog...")
  149.                (help @copyfiles-help)
  150.     )
  151. )
  152.  
  153. (if (in languages 2) (
  154.     (if (not (exists "LOCALE:Languages/pce.language"))
  155.         (copyfiles (source "Languages/pce.language")
  156.                    (dest "LOCALE:Languages")
  157.                    (prompt "Copying politically correct language file...")
  158.                    (help @copyfiles-help)
  159.         )
  160.     )
  161.     (copyfiles (source "Catalogs/pce")
  162.                (dest "LOCALE:Catalogs/pce")
  163.                (all)
  164.                (prompt "Copying politically correct catalog...")
  165.                (help @copyfiles-help)
  166.     )
  167. ))
  168.  
  169. (if copy-docs (
  170.         (makedir (tackon @default-dest "Docs"))
  171.         (copyfiles (source "Docs")
  172.                    (dest (tackon @default-dest "Docs"))
  173.                    (infos)
  174.                    (all)
  175.                    (confirm "average")
  176.                    (prompt "Copying documentation...")
  177.                    (help @copyfiles-help)
  178.         )
  179.     )
  180. )
  181.  
  182. (if opus
  183.     (copyfiles (source "Extras/Opus5")
  184.            (dest opus-dir)
  185.            (infos)
  186.            (all)
  187.            (prompt "Copying DOpus5 button images...")
  188.            (help @copyfiles-help)
  189.     )
  190. )
  191.  
  192. (if (exists "Src")
  193.     (if (<> user-level "novice")
  194.         (if (askbool (prompt "\n\n\n\n\nDo you want to install the source code (in Amiga-E; Hail Wouter!) and developer information?")
  195.                      (help @askbool-help))
  196.             (
  197.                 (makedir (tackon @default-dest "Src"))
  198.                 (copyfiles (source "Src")
  199.                            (dest (tackon @default-dest "Src"))
  200.                            (infos)
  201.                            (all)
  202.                            (prompt "Copying source code...")
  203.                            (help @copyfiles-help)
  204.                 )
  205.             )
  206.         )
  207.     )
  208. )
  209.  
  210. (exit "\nRemember:\n\nThis is a BETA version - mail me bug reports!\n\n(Please include reproductions of Enforcer hits if possible)")
  211.  
  212.